﻿
Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class IndicesBL
    Private indicesDA As IndicesDA = Nothing

    Public Function Add(ByVal indicesBE As IndicesBE) As String
        Return indicesDA.Add(indicesBE)
    End Function
    Public Function Update(ByVal indicesBE As IndicesBE) As String
        Return indicesDA.Update(indicesBE)
    End Function
    Public Function Eliminar(ByVal IdIndice As Integer) As String
        Return indicesDA.Eliminar(IdIndice)
    End Function

    Public Function List(ByVal IdTypeDoc As Integer) As DataTable
        Return indicesDA.List(IdTypeDoc)
    End Function
    Public Function list(ByVal idIndice As Int16) As DataTable
        Return indicesDA.List(idIndice)
    End Function
    Public Function ListByName(ByVal NombreIndice As String, ByVal IdTipoDocumental As Integer) As DataTable
        Return indicesDA.ListbyName(NombreIndice, IdTipoDocumental)
    End Function
    Public Sub New()
        indicesDA = New IndicesDA
    End Sub
End Class
